home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 17 / 2 / DISK1720.ZIP / HYPMAIN.LZH / ADDRBOOK.HYP < prev    next >
Text File  |  1991-04-24  |  4KB  |  226 lines
  1. .HEADER
  2.   ┌─────────────────────────────────────────────────────────────────────┐
  3.   │  ADDRESS BOOK DATABASE   $1~C45$2~C73│
  4.   └─────────────────────────────────────────────────────────────────────┘
  5. .REMARK Address Book Database example
  6. .
  7. .SCRIPT SETUP
  8. -- allow for re-entry
  9. O#
  10. -- switch something off
  11. O10
  12. -- F10 puts back a 'q' - can't allow direct exit from data entry
  13. KF0ZUq
  14. -- set up read mask
  15. KG5:NAIKQZWYPTER
  16. -- default selexp is 1 - this is always TRUE of course!
  17. VS1
  18. -- set up default display mask
  19. KG7[%c] $$A $$I ~A$$N~PP$$E~K%c~E~C25$$K $$Q $$Z $$W
  20. .
  21. .FRAME Database
  22. .TITLE Control menu
  23.  
  24. [e]    ~FData entry~Ke~E                - Add records
  25.  
  26. [l]    ~FData look up~Kl~E              - Look for records by surname
  27.  
  28. [f]    ~AFormatted address listing~Psaddrlist~Kf~E - select item to display notes field
  29.  
  30. [t]    ~ATelephone number listing~Pstellist~Kt~E  - select item to display notes field
  31.  
  32. [s]    ~FSort records~Pssort~Ks~E              - using MSDOS SORT program
  33.  
  34. [p]    ~FPrints~Kp~E                    - Various listings
  35.  
  36. [q]    ~AQuit~PQ~Kq~E                      - to MSDOS
  37.  
  38. .
  39. .SCRIPT sort
  40. pSorting database - please wait
  41. -- 'silent' program (hopefully)
  42. d sort < addrbook.dat > addrbook.srt
  43. dcopy addrbook.srt addrbook.dat
  44. -- ring that bell
  45. pReady
  46. .
  47. .SCRIPT addrlist
  48. -- Address list
  49. -- VS?Selection expression/$S
  50. nSelection Expression
  51. KG6$S
  52. KG7[%c] $$A $$I ~A$$N~PP$$E~K%c~E~C25$$K $$Q $$Z $$W
  53. A@Gaddrbook.dat
  54. .
  55. .SCRIPT tellist
  56. -- Telephone list
  57. -- VS?Selection expression/$S
  58. nSelection Expression
  59. KG6$S
  60. KG7[%c] $$A $$I ~A$$N~PP$$E~K%c~E~C30$$T
  61. A@Gaddrbook.dat
  62. .
  63. .NOTE Selection Expression
  64.  Enter selection expression in HyperShell form
  65.  eg. "T0625"c  - Telephone number contains 0625
  66.      "ADr"e ! "AProf"e   - Title 'Dr' or 'Prof'
  67.  [ Enter  1  to select all records ]
  68.  
  69.  Expression: ~I$S~W34~PVS%s~E~Q
  70.  
  71.     --------------  Fields  -------------------
  72.  A  Title      I  Initials  N  Name
  73.  K  Company
  74.  Q  Addr 1     Z  Addr 2    W  Addr 3  Y  Addr 4
  75.  P  Postcode
  76.  T  Telephone  E  Details   R  Date
  77.  
  78. .FRAME Data entry
  79. .TITLE For entering data
  80. ~A~Pwaddrbook.dat+~E~Q~H Open database for extend
  81.  
  82.     Title: Initials: Name:
  83.     ~I$A~W5~PVA%s;I~Kt~E  ~I$I~W6~PVI%s;I~E    ~I$N~W30~PVN%s;I~E
  84.     Company:
  85.     ~I$K~W30~PVK%s;I~E
  86.     Address:
  87.     ~I$Q~W30~PVQ%s;I~E
  88.     ~I$Z~W30~PVZ%s;I~E
  89.     ~I$W~W30~PVW%s;I~E
  90.     ~I$Y~W30~PVY%s;I~E  Postcode: ~I$P~W10~PVP%s;I~E
  91.     Telephone:          Notes:        Date:
  92.     ~I$T~W20~PVT%s;I~E  ~I$E~W20~PVE%s;I~E  ~I$4~W11~PVR%s;sinform~E
  93.  
  94. [ESC]     Press escape to cancel entry - select field to edit
  95. [w]       ~APress 'w' to write record~Pswrite~Kw~E
  96.  
  97. [n]       ~APress 'n' to clear fields and start new entry~Psclear;ZUt~Kn~E
  98. [q]      ~AQuit entry~Pw;F~Kq~E~H Close database
  99. .
  100. .SCRIPT write
  101. W$N:$A:$I:$K:$Q:$Z:$W:$Y:$P:$T:$E:$4
  102. pRecord written for $A $I $N
  103. ZX20;ZY20
  104. .
  105. .SCRIPT clear
  106. VA;VN;VI;VK;VQ;VZ;VW;VY;VP;VT;VE;VR
  107. y
  108. .
  109. .SCRIPT inform
  110. pSelect field to edit or press 'w' to write record
  111. ZX20;ZY18
  112. .
  113. .REMARK 
  114. A    Title
  115. I    Initials
  116. N    Name
  117. K    Company
  118. Q    Addr 1
  119. Z    Addr 2
  120. W    Addr 3
  121. Y    Addr 4
  122. P    Postcode
  123. T    Telephone
  124. E    Details
  125. R    Date
  126.  
  127. .
  128. .FRAME Data look up
  129. .TITLE For displaying data
  130. ~A~Praddrbook.dat~E~Q~H Open for reading
  131.  
  132. Name:        $A $I $N
  133. Company:    $K
  134.  
  135. Address:    $Q
  136.         $Z
  137.         $W
  138.         $Y
  139. Postcode:    $P~C40
  140. Telephone:    $T~C40
  141.  
  142. Notes: $E    Date: $R
  143.  
  144. [ ]       ~APress space bar for next record~Psnext~K ~E
  145. [f]       ~APress 'f' to go to first record~PVk;sLookup~Kf~E
  146. [l]       ~I$k~W20~PVk%s;sLookup~Kl~E  Lookup - enter start of name
  147.  
  148. [q]       ~AQuit lookup~Pr;F~Kq~E
  149. .
  150. .SCRIPT Lookup
  151. Y
  152. Vr!L$k
  153. jsNOT FOUND
  154. er:NAIKQZWYPTER
  155. y;q
  156. LNOT FOUND
  157. i~X10~Y20~DPNot found~DT
  158. ZUk
  159. .
  160. .SCRIPT next
  161. Y
  162. R:NAIKQZWYPTER
  163. jsEOF
  164. y;q
  165. LEOF
  166. i~X20~Y20~DPEnd of file~DT
  167. ZUk
  168. .
  169. .SCRIPT nextfun
  170. LBEGIN
  171. Y
  172. R:nshp
  173. jsEOF
  174. vz$h;jnBEGIN
  175. Vf@MType[$h]
  176. y;q
  177. LEOF
  178. i~X60~Y15~DPEnd of file~DT
  179. ZUk
  180. .
  181. .REMARK example printouts
  182. .
  183. .FRAME Prints
  184. .TITLE Detailed and simple lists
  185.  
  186. [l]    ~ASimple List~PsList~Kl~E
  187.  
  188. [a]    ~AAddress List~Psadds~Ka~E
  189.  
  190. [d]    ~ADetailed print~PsDetail~Kd~E
  191.  
  192. [q]    ~AQuit to main menu~PF~Kq~E
  193. .
  194. .SCRIPT List
  195. Y?Ready printer
  196. O51
  197. raddrbook.dat
  198. LREAD
  199. Y
  200. R:NAIKQZWYPTER
  201. jsEOF
  202. o$A $I $N $K
  203. JREAD
  204. LEOF
  205. r
  206. .
  207. .SCRIPT adds
  208. Y?Ready printer
  209. O51
  210. raddrbook.dat
  211. LREAD
  212. Y
  213. R:NAIKQZWYPTER
  214. jsEOF
  215. o$A $I $N
  216. o$K
  217. o$Q
  218. o$Z
  219. o$W
  220. o$Y $P
  221. o
  222. JREAD
  223. LEOF
  224. r
  225. .
  226.